home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 89 / gfabasic / mouse.lst < prev    next >
Encoding:
File List  |  1986-12-18  |  142 b   |  9 lines
  1. Ellipse 320,200,320,200,-7200,0
  2. Do
  3.   I=(I+1) Mod 36
  4.   Deffill 1,3+(I<24),I Mod 24+1
  5.   Repeat
  6.   Until Mousek
  7.   Fill Mousex,Mousey
  8. Loop
  9.